home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 88 / Tiger_Disk_088_20xx_Tiger-Crew-Disk_de_Side_B.d64 / renamer [tc] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  753b  |  17 lines
  1. 10 poke53280,11:poke53281,5:print"[147]"tab(15)" renamer ":c$="                "
  2. 15 print" [153]bei koala-bildern: entweder":print" [158]?pic name[153]";
  3. 16 print"[146]   eingeben, oder":print" [158]?pic name*[146][153], wenn der name"
  4. 17 print" mit leerzeichen endet, aber":print" genau 15 zeichen lang ist !"
  5. 20 a$="":input" alter name ";a$:ifa$=""thenprint" tschuessi!":print" t c":end
  6. 30 ifleft$(a$,1)="?"thena$=chr$(129)+right$(a$,(len(a$)-1))
  7. 35 ifright$(a$,1)="*"thena$=left$(a$,(len(a$-1)):a$=left$(a$+c$,15)
  8. 40 b$="":input" neuer name ";b$:ifb$=""thenprint" tschuessi!":print" t c":end
  9. 50 ifleft$(b$,1)="?"thenb$=chr$(129)+right$(b$,(len(b$)-1)):b$=left$(b$+c$,15)
  10. 60 open2,8,2,a$+",p,r":open15,8,15
  11. 70 input#15,aa,bb$,cc,dd
  12. 80 ifaa<>0thenprint"              f e h l e r  !           ":goto100
  13. 90 goto120
  14. 100 print,aa;bb$;cc;dd
  15. 110 poke198,0:wait198,1:poke198,0:close2:close15:goto20
  16. 120 close2:print#15,"r:"+b$+"="+a$:close15:goto20
  17.